object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 240
  Top = 106
  Height = 370
  Width = 384
  object con1: TUniConnection
    ProviderName = 'SQL Server'
    LoginPrompt = False
    Left = 16
    Top = 56
  end
  object SQLServerUniProvider1: TSQLServerUniProvider
    Left = 264
    Top = 16
  end
  object qrExcute: TUniQuery
    SQL.Strings = (
      'select zf1,zf2,zf3,zf6,zf7,zf8,zf9,zf10,zf11,zf12'
      'from zhoufei'
      'where zf10 between :sDate and :eDate'
      'AND zf8=:zf8')
    Left = 88
    Top = 104
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'sDate'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'eDate'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'zf8'
        ParamType = ptInput
      end>
  end
  object qrSet: TdxMemData
    Indexes = <>
    SortOptions = []
    Left = 216
    Top = 120
    object qrSetDataBase: TStringField
      DisplayLabel = #26381#21153#22120
      FieldName = 'DataBase'
    end
    object qrSetDBName: TStringField
      DisplayLabel = #25968#25454#24211#21517#31216
      FieldName = 'DBName'
    end
    object qrSetUsername: TStringField
      DisplayLabel = #29992#25143#21517
      FieldName = 'Username'
    end
    object qrSetPassword: TStringField
      DisplayLabel = #23494#30721
      FieldName = 'Password'
    end
  end
  object qrzfmxview: TUniQuery
    SQL.Strings = (
      'select mx3,yp3,yp4,yp5,mx5,mx6,yp6,mx4'
      'from zfmxview'
      'where mx2=:mx2')
    Left = 88
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'mx2'
      end>
  end
end
